package com.hc.comm.utils;


import java.security.Key;  

import javax.crypto.Cipher;  
import javax.crypto.SecretKeyFactory;  
import javax.crypto.spec.DESedeKeySpec;  
import javax.crypto.spec.IvParameterSpec; 

import com.alibaba.fastjson.JSONObject;

import java.io.ByteArrayOutputStream;  
import java.io.IOException;  
import java.io.OutputStream;

public class Des3Utils {

    // 向量  
    private final static String iv = "dadayuan";  
    
    // 加解密统一使用的编码方式  
    private final static String encoding = "utf-8";  
    
    public static String decode(String encryptText, String key, String giv) throws Exception {  
        Key deskey = null;  
        DESedeKeySpec spec = new DESedeKeySpec(key.getBytes());  
        SecretKeyFactory keyfactory = SecretKeyFactory.getInstance("desede");  
        deskey = keyfactory.generateSecret(spec);  
        Cipher cipher = Cipher.getInstance("desede/CBC/PKCS5Padding");  
        IvParameterSpec ips = new IvParameterSpec(giv.getBytes());  
        cipher.init(Cipher.DECRYPT_MODE, deskey, ips);  
  
        byte[] decryptData = cipher.doFinal(Base64.decode(encryptText));  
  
        return new String(decryptData, encoding);  
    }  
    
    public static JSONObject decoceParams(JSONObject jobject, String action) {
    	
		
		
		String actionParam = jobject.getString(action);
		if (actionParam != null) {
			String retString = "";
			String req_key = jobject.getString("req_key");
			String keys[] = req_key.split("_");
			if (keys == null || keys.length != 2) {
				return null;
			}
			
			String key1 = keys[0];
			String key2 = keys[1];
			String pos = key1.substring(0, 1);
			int index = key1.charAt(Integer.parseInt(pos))-'0';
			
			String encryptKey = MD5Util.MD5(key2.substring(index));
			
			String giv = encryptKey.substring(0, 8).toLowerCase();

			String key = encryptKey.substring(8).toLowerCase();
			
			key = key.substring(key.length()-24).toLowerCase();
			
			try {
				retString = decode(actionParam, key, giv);
			} catch (Exception e) {
				// TODO Auto-generated catch block
				e.printStackTrace();
			}
			
			//MyLog.log("decoceParams()  key = " + key + ", giv = " + giv + ", pos = " + pos + ", index = " + index
				//	+ ", key1 = " + key1 + ", key2 = " + key2 + ", retString = " + retString);
			
			return JSONObject.parseObject(retString);
		}
	
		return null;
    }
    
    
    private static String getPassword(JSONObject jobject, String action) throws Exception {
    	String retString = "";
		
		
    	JSONObject actionParam = Des3Utils.decoceParams(jobject, action);
		if (actionParam != null) {
			String app_key = jobject.getString("app_key");
			
			String key = MD5Util.MD5(app_key);
			key = key.substring(key.length()-24).toLowerCase();
			//MyLog.log("key = " + key);
			retString = decode(actionParam.getString("password"), key);
		}
		
		return retString;
    }
    
    public static String getPasswordEx(JSONObject actionParam) throws Exception {
    	String retString = "";

		if (actionParam != null) {
			String app_key = actionParam.getString("app_key");
			
			String key = MD5Util.MD5(app_key);
			key = key.substring(key.length()-24).toLowerCase();
			//MyLog.log("key = " + key);
			retString = decode(actionParam.getString("password"), key);
		}
		
		return retString;
    }
    
  
    /** 
     * 3DES加密 
     *  
     * @param plainText 普通文本 
     * @return 
     * @throws Exception  
     */  
    public static String encode(String plainText, String key) throws Exception {  
        Key deskey = null;  
        DESedeKeySpec spec = new DESedeKeySpec(key.getBytes());  
        SecretKeyFactory keyfactory = SecretKeyFactory.getInstance("desede");  
        deskey = keyfactory.generateSecret(spec);  
  
        Cipher cipher = Cipher.getInstance("desede/CBC/PKCS5Padding");  
        IvParameterSpec ips = new IvParameterSpec(iv.getBytes());  
        cipher.init(Cipher.ENCRYPT_MODE, deskey, ips);  
        byte[] encryptData = cipher.doFinal(plainText.getBytes(encoding));  
        return Base64.encode(encryptData);  
    }  
  
    /** 
     * 3DES解密 
     *  
     * @param encryptText 加密文本 
     * @return 
     * @throws Exception 
     */  
    public static String decode(String encryptText, String key) throws Exception {  
        Key deskey = null;  
        DESedeKeySpec spec = new DESedeKeySpec(key.getBytes());  
        SecretKeyFactory keyfactory = SecretKeyFactory.getInstance("desede");  
        deskey = keyfactory.generateSecret(spec);  
        Cipher cipher = Cipher.getInstance("desede/CBC/PKCS5Padding");  
        IvParameterSpec ips = new IvParameterSpec(iv.getBytes());  
        cipher.init(Cipher.DECRYPT_MODE, deskey, ips);  
  
        byte[] decryptData = cipher.doFinal(Base64.decode(encryptText));  
  
        return new String(decryptData, encoding);  
    }  
 
    
    public static class Base64 {  
        private static final char[] legalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".toCharArray();  
      
        public static String encode(byte[] data) {  
            int start = 0;  
            int len = data.length;  
            StringBuffer buf = new StringBuffer(data.length * 3 / 2);  
      
            int end = len - 3;  
            int i = start;  
            int n = 0;  
      
            while (i <= end) {  
                int d = ((((int) data[i]) & 0x0ff) << 16) | ((((int) data[i + 1]) & 0x0ff) << 8) | (((int) data[i + 2]) & 0x0ff);  
      
                buf.append(legalChars[(d >> 18) & 63]);  
                buf.append(legalChars[(d >> 12) & 63]);  
                buf.append(legalChars[(d >> 6) & 63]);  
                buf.append(legalChars[d & 63]);  
      
                i += 3;  
      
                if (n++ >= 14) {  
                    n = 0;  
                    buf.append(" ");  
                }  
            }  
      
            if (i == start + len - 2) {  
                int d = ((((int) data[i]) & 0x0ff) << 16) | ((((int) data[i + 1]) & 255) << 8);  
      
                buf.append(legalChars[(d >> 18) & 63]);  
                buf.append(legalChars[(d >> 12) & 63]);  
                buf.append(legalChars[(d >> 6) & 63]);  
                buf.append("=");  
            } else if (i == start + len - 1) {  
                int d = (((int) data[i]) & 0x0ff) << 16;  
      
                buf.append(legalChars[(d >> 18) & 63]);  
                buf.append(legalChars[(d >> 12) & 63]);  
                buf.append("==");  
            }  
      
            return buf.toString();  
        }  
      
        private static int decode(char c) {  
            if (c >= 'A' && c <= 'Z')  
                return ((int) c) - 65;  
            else if (c >= 'a' && c <= 'z')  
                return ((int) c) - 97 + 26;  
            else if (c >= '0' && c <= '9')  
                return ((int) c) - 48 + 26 + 26;  
            else  
                switch (c) {  
                case '+':  
                    return 62;  
                case '/':  
                    return 63;  
                case '=':  
                    return 0;  
                default:  
                    throw new RuntimeException("unexpected code: " + c);  
                }  
        }  
      
        /** 
         * Decodes the given Base64 encoded String to a new byte array. The byte array holding the decoded data is returned. 
         */  
      
        public static byte[] decode(String s) {  
      
            ByteArrayOutputStream bos = new ByteArrayOutputStream();  
            try {  
                decode(s, bos);  
            } catch (IOException e) {  
                throw new RuntimeException();  
            }  
            byte[] decodedBytes = bos.toByteArray();  
            try {  
                bos.close();  
                bos = null;  
            } catch (IOException ex) {  
                System.err.println("Error while decoding BASE64: " + ex.toString());  
            }  
            return decodedBytes;  
        }  
      
        private static void decode(String s, OutputStream os) throws IOException {  
            int i = 0;  
      
            int len = s.length();  
      
            while (true) {  
                while (i < len && s.charAt(i) <= ' ')  
                    i++;  
      
                if (i == len)  
                    break;  
      
                int tri = (decode(s.charAt(i)) << 18) + (decode(s.charAt(i + 1)) << 12) + (decode(s.charAt(i + 2)) << 6) + (decode(s.charAt(i + 3)));  
      
                os.write((tri >> 16) & 255);  
                if (s.charAt(i + 2) == '=')  
                    break;  
                os.write((tri >> 8) & 255);  
                if (s.charAt(i + 3) == '=')  
                    break;  
                os.write(tri & 255);  
      
                i += 4;  
            }  
        }  
    }  
}
